home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 June / 1993-06.d64 / falling star.pp (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  289b  |  13 lines
  1. 0 clr
  2. 2 print"[147]"poke53280,6:poke53281,6
  3. 10 rem falling star
  4. 20 for l=54272 to 54295:poke l,0:next:poke 54296,15
  5. 30 poke 54277,4:poke 54278,12
  6. 40 f2=150:q=50
  7. 50 for z=1 to 50
  8. 60 f1=int(100*rnd(1))+10:poke 54276,23
  9. 70 for t=1 to q:next t
  10. 80 poke 54273,f1:poke 54287,f2:poke 54276,20:q=q-1:f2=f2-3
  11. 90 next z
  12. 100 poke 54273,30:poke 54280,0
  13.